10 CLS
20 LET B = 2
22 INPUT A
24 PRINT "YOU TYPED IN ";
26 PRINT A
27 REM
30 IF A / B = INT(A / B) THEN GOTO 40
32 PRINT "THAT NUMBER IS NOT DIVISIBLE BY TWO"
34 GOTO 45
40 PRINT "THAT NUMBER IS DIVISIBLE BY TWO"
42 PRINT "DONE"
45 END